home *** CD-ROM | disk | FTP | other *** search
/ Reverse Code Engineering RCE CD +sandman 2000 / ReverseCodeEngineeringRceCdsandman2000.iso / RCE / Svd Messageboard Arcive / ephemery / data / MBPREP.ZIP / FILT.PL < prev    next >
Encoding:
Text File  |  1999-02-02  |  383 b   |  16 lines
  1. $r=-13;
  2. while (<>) {
  3.  s/<BR>/<BR>\n/gi; s/\n\n/\n/g;
  4.   #strip
  5.  s|<font size=\".{1,2}\">||gi;
  6.  s|<font size=\".{1,2}\" face=\"arial,helvetica\">||gi;
  7. # s|</font>||gi;
  8.  s#(<TABLE WIDTH=\"100%\"><TR><TD>|</TD></TR></TABLE>)##gi;
  9.     if ($r ne ">new/$ARGV") {
  10.        close(r) if $r!=-13;
  11.        $r = ">new/$ARGV";
  12.        open(r) || print "$! $r\n";
  13.      }
  14.   print r $_;
  15. }
  16.